home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / preference programme / muiscreenmode_v1.5 / install.script < prev    next >
Text File  |  1996-04-07  |  6KB  |  237 lines
  1. ; Installer installation script for MUIScreenMode
  2. ;$VER: Install 1.003 (11 May 1995)
  3.  
  4. (set @default-dest "")
  5.  
  6. (set programme "MUIScreenMode")
  7. (set progver "1.4")
  8. (set helpdir "HELP:")
  9.  
  10. ;================================================================================
  11. ; English strings
  12.  
  13. (set #bad-kick
  14.   (cat "You must have Kickstart 3.0 or higher installed to use MUIScreenMode!")
  15. )
  16.  
  17. (set #install
  18.   (cat "\n" programme " installation\n\n\n"
  19.        "This script installs " programme " " progver "\n"
  20.        "on your Amiga.\n\n\n\n"
  21.        programme " © 1995 Cyril DEBLE\n"
  22.        "All rights reserved\n\n"
  23.        "(MUI © Stephan Stuntz)")
  24. )
  25.  
  26.  
  27. (set #where
  28.   (cat "In wich drawer should " programme " be installed?")
  29. )
  30.  
  31. (set #copying
  32.   (cat "Copying " programme )
  33. )
  34.  
  35. (set #which-docs
  36.   (cat "\nWhich docs should be installed?")
  37. )
  38. (set #which-docs-help
  39.   (cat "\n" programme " support on line help in many language. "
  40.        "A amigaguide file must be copied to your harddisk "
  41.        "for each language supported.\n\n"
  42.        "To reduce the amount of space consumed by the guide "
  43.        "files, you can select to have only the files of specific "
  44.        "languages copied.\n\n"
  45.        "Simply check the boxes of the languages you wich to have "
  46.        "available on your system.\n\n")
  47. )
  48.  
  49.  
  50. ;================================================================================
  51. ; French strings
  52.  
  53. (if (= @language "français")  
  54.   (
  55.     (set #bad-kick
  56.       (cat "Vous devez posseder le Kickstart 3.0 ou superieur pour utiliser " programme "!")
  57.     )
  58.  
  59.     (set #install
  60.       (cat "\nInstallation de " programme "\n\n\n"
  61.            "Ce script installe " programme " " progver "\n"
  62.            "sur votre Amiga.\n\n\n\n"
  63.            programme " © 1995 Cyril DEBLE\n"
  64.            "Tous droits réservés\n\n"
  65.            "(MUI © Stephan Stuntz)")
  66.     )
  67.  
  68.  
  69.     (set #where
  70.       (cat "Dans quel tiroir installer " programme " ?")
  71.     )
  72.  
  73.     (set #copying
  74.       (cat "Copie de " programme )
  75.     )
  76.  
  77.     (set #which-docs
  78.       (cat "\nQuelle documentation installer ?")
  79.     )
  80.     (set #which-docs-help
  81.       (cat "\n" programme " a une aide en ligne disponible avec "
  82.            "different langages. "
  83.            "Un fichier amigaguide doit être copié sur votre disque dur "
  84.            "pour chaque langage supporté.\n\n"
  85.            "Pour reduire l'espace pris par les fichiers vous pouvez "
  86.            "selectionner un ou plusieur fichiers de langage spécifique "
  87.            "à copier.\n\n"
  88.            "Cochez simplement la case du langage que vous voulez installer "
  89.            "dans votre systeme.\n\n")
  90.     )
  91.   )
  92. )
  93. ;================================================================================
  94. ; German strings
  95.  
  96. (if (= @language "deutsch")
  97.   (
  98.     (set #bad-kick
  99.       (cat "Um " programme " zu benutzen, benötigen sie Kickstart 3.0 oder höher!")
  100.     )
  101.  
  102.     (set #install
  103.       (cat "\nInstallation von " programme "\n\n\n"
  104.            "Dieses Skript installiert " programme " " progver "\n"
  105.            "für ihren Amiga.\n\n\n\n"
  106.            programme " © 1995 Cyril DEBLE\n"
  107.            "Alle Rechte vorbehalten\n\n"
  108.            "(MUI © Stephan Stuntz)")
  109.     )
  110.  
  111.  
  112.     (set #where
  113.       (cat "In welchem Verzeichnis soll " programme " installiert werden?")
  114.     )
  115.  
  116.     (set #copying
  117.       (cat "Kopieren von " programme )
  118.     )
  119.  
  120.     (set #which-docs
  121.       (cat "\nWelche Anleitungen sollen installiert werden?")
  122.     )
  123.     (set #which-docs-help
  124.       (cat "\n" programme " unterstützt Onlinehilfe in mehreren "
  125.            "verschiedenen Sprachen. "
  126.            "Für jede Sprache muß eine Amigaguide-Datei auf ihre "
  127.            "Festplatte kopiert werden.\n\n"
  128.            "Um Platz zu sparen, brauchen sie nur die gewünschten "
  129.            "Sprachen auszuwählen.\n\n "
  130.            "Selektieren sie einfach die Sprachen, die sie auf "
  131.            "ihrem System benutzen wollen.\n\n")
  132.     )
  133.   )
  134. )
  135.                           
  136. ;================================================================================
  137. ; make sure we are running under a 3.0 ROM
  138.  
  139. (if (< (/ (getversion) 65536) 39)
  140.   (
  141.     (abort #bad-kick)
  142.   )
  143. )
  144.  
  145. ;================================================================================
  146. ;
  147.  
  148. (complete 0)
  149.  
  150. (message
  151.     (#install)
  152. )
  153.  
  154. (welcome)
  155.  
  156. (set destination
  157.     (askdir
  158.         (prompt #where-catedit)
  159.         (help @askdir-help)
  160.         (default "SYS:Prefs")
  161.     )
  162. )
  163.  
  164. (copylib
  165.     (prompt "\n" #copying)
  166.     (help @copylib-help)
  167.     (source programme)
  168.     (dest destination)
  169.     (confirm)
  170. )
  171.  
  172. (complete 50)
  173.  
  174. (if (NOT (exists (tackon destination (cat programme ".info"))))
  175.     (
  176.         (copyfiles
  177.             (source (cat programme ".info"))
  178.             (dest destination)
  179.         )
  180.     )
  181. )
  182.  
  183. (complete 55)
  184.  
  185. (if (NOT (exists "ENVARC:Sys/Def_Prefs.info"))
  186.     (
  187.         (copyfiles
  188.             (source "Env-Archive/Sys/Def_Prefs.info")
  189.             (dest "ENVARC:Sys/")
  190.         )
  191.     )
  192. )
  193.  
  194. (complete 60)
  195.  
  196. (
  197.     (set lang
  198.         (askoptions
  199.             (prompt #which-language)
  200.             (help #which-docs-help @askoptions-help)
  201.             (choices
  202.                 "English"
  203.                 "Français"
  204.                 "Deutsch"
  205.                 "Svenska")
  206.             (default 0)
  207.         )
  208.     )
  209.     (set n 0)
  210.     (while
  211.         (set language
  212.             (select n
  213.                 "english"
  214.                 "français"
  215.                 "deutsch"
  216.                 "svenska"
  217.                 ""
  218.             )
  219.         )
  220.         (
  221.             (if (IN lang n)
  222.                 (
  223.                      (makedir (tackon helpdir language))
  224.                      (copyfiles
  225.                          (source (tackon (tackon "docs/" language) (cat programme ".guide")))
  226.                          (dest (tackon helpdir language))
  227.                      )
  228.                 )
  229.             )
  230.             (set n (+ n 1))
  231.         )
  232.     )
  233. )
  234.  
  235. (complete 100)
  236. (exit)
  237.